From fe90ad97661b86fac9c360272330008b16f3054e Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Mon, 22 Feb 1993 16:21:17 +0000 Subject: [PATCH] * alloc.c (make_pure_float): Align pureptr according to __alignof, if it's available, or sizeof (struct Lisp_Float) if it's not. --- src/alloc.c | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/src/alloc.c b/src/alloc.c index 63463dbbc7f..f3010dbac5d 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -991,12 +991,22 @@ make_pure_float (num) double num; { register Lisp_Object new; + int alignment; /* Make sure that pureptr is aligned on at least a sizeof (double) boundary. Some architectures (like the sparc) require this, and I suspect that floats are rare enough that it's no tragedy for those that do. */ - pureptr = (pureptr + sizeof (num) - 1) & - sizeof (num); +#ifdef __GNUC__ +#if __GNUC__ >= 2 + alignment = __alignof (struct Lisp_Float); +#else + alignment = sizeof (struct Lisp_Float); +#endif +#else + alignment = sizeof (struct Lisp_Float); +#endif + pureptr = (pureptr + alignment - 1) & - alignment; if (pureptr + sizeof (struct Lisp_Float) > PURESIZE) error ("Pure Lisp storage exhausted"); -- 2.30.2